home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
COM
/
CASTERM.sit
/
CASTERM
/
Utilities
/
Special
/
必殺電報ラウンチャー!!
/
SEND ALL[おさき〜]
next >
Wrap
Text File
|
1994-02-09
|
1KB
|
80 lines
#
# 必殺電報ラウンチャー!!
# Script for FreeStyle II
# Program by CASTER
#
# 4月にCASTERMの本がでますので、
# よろしくお願いします。
# このスクリプトは転載は禁止です。
#全員に電報を打つ
SETVAL3 = 3;
SETVAL4 = 3;
SETVAL5 = 3;
SETSTR3 = " ";
SETSTR4 = " ";
SETSTR5 = " ";
SETSTR6 = " ";
SETSTR7 = " ";
SETSTR8 = "?";
SETSTR9 = "おさきで〜す^m";
SETVAL6 = 12;
#
# 送る文字列 STR9
# 変えるスクリプトラベルVAL6
# 電報>ALL
#
L7;
SEND(!^m);
CASE(選択してください : );
GOTO (1);
CEND;
CASE(送り先 ( );
CEND;
CFIN;
L9;
IFCHAR ()) GOTO(8);
GETSTR(STR1,"[","]");
GETSTR(STR2," "," ");
SETVAL3 = 3;
L10;
IFVAL (VAL3 == VAL4) GOTO(6);
CMPSCASE(VAL3,STR2);
GOTO(9);
CEND;
CFIN;
VAL3 ++;
GOTO(10);
L6;
CMPSCASE(STR1,STR8);
SEAR() : );
SEND(^m);
GOTO(11);
CEND;
CFIN;
SEAR() : );
SENDSTR(STR1);
SEND(^m);
SEAR(( 21文字 ) : );
SENDSTR(STR9);
L11;
SWAPSTR(VAL5,STR2);
VAL4 ++;
VAL5 ++;
SEAR(選択してください : );
GOTO(7);
L8;
BEEP;
SEAR() : );
SEND(^m);
#
# 電報ALL終了
#
L2;
#SEAR(選択してください : );
L1;
SEND(E^m);
SEAR(終了してよいですか ( Y ) : );
SEND(Y^m);
SDCD;
END;